home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Text⁄Files / Tape Stuff / Pascal Strings / Pstrrchr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-10-24  |  549 b   |  29 lines  |  [TEXT/KAHL]
  1. /****************************************************************************
  2.  *
  3.  * FILE:    Pstrrchr.c
  4.  * CREA:    Sven Axelsson, GU
  5.  * MODF:    fredag 13 april 1990 @ 12.27.32
  6.  * HIST:    90-04-13 (1.0)    First version.
  7.  *
  8.  ****************************************************************************/
  9.  
  10. # include    "pstring.h"
  11.  
  12.  
  13. char *
  14. Pstrrchr(
  15.     register Str255            s,
  16.     register char            c )
  17. {
  18.     register unsigned int    i;
  19.     unsigned int            l = s[0];
  20.     
  21.     s = &s[s[0]];
  22.     for( i = 1; i <= l; i++ ) {
  23.         if( *s-- == c ) {
  24.             return( (char *) ++s );
  25.         }
  26.     }
  27.     
  28.     return( NULL );
  29. }